TT <- read_csv("Data/thermtol.csv", show_col_types = FALSE) |>
mutate(Line = factor(Line))
TT$incapacitation_T <- qqnorm(TT$incapacitation, plot.it = FALSE)$x
glimpse(TT)Rows: 48,047
Columns: 3
$ Line <fct> 11002, 11002, 11002, 11002, 11002, 11002, 11002, 1100…
$ incapacitation <dbl> 125, 110, 130, 430, 130, 35, 255, 195, 170, 160, 135,…
$ incapacitation_T <dbl> -0.02754942, -0.19647825, 0.02655782, 2.18699773, 0.0…